unit UntMsg;

interface

procedure MsgAviso(Msg: string);
procedure MsgErro(Msg: string);

implementation

uses Forms;

procedure MsgAviso(Msg: string);
begin
  Application.MessageBox(PChar(Msg),PChar('Aviso'));
end;

procedure MsgErro(Msg: string);
begin
  Application.MessageBox(PChar(Msg),PChar('Erro'));
end;

end.
